home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / datatypes / photo-cd.datatype / install < prev    next >
Text File  |  1996-04-07  |  3KB  |  103 lines
  1. ; $VER: Install 1.1 (21.10.94)
  2.  
  3. (complete 0)
  4.  
  5. ;=============================================================================
  6. ; English strings
  7.  
  8. (if (= @language "english")
  9. (
  10.  
  11. (set #bad-kick
  12. (cat "\nYou must be running Kickstart 3.0 to install the Photo CD DataType"
  13. ))
  14.  
  15. (set #askinstall
  16. (cat "Do you want the Photo CD DataType to be installed?"
  17. ))
  18.  
  19. (set #askinstall-help
  20. (cat "Please decide if you want to have the Photo CD DataType installed "
  21.      "on your Amiga."
  22. ))
  23.  
  24. ))
  25.  
  26. ;=============================================================================
  27. ; German strings
  28.  
  29. (if (= @language "deutsch")
  30. (
  31.  
  32. (set #bad-kick
  33. (cat "\nZur Installation des Photo CD DataType wird Kickstart 3.0 benötigt"
  34. ))
  35.  
  36. (set #askinstall
  37. (cat "Soll der Photo CD DataType installiert werden?"
  38. ))
  39.  
  40. (set #askinstall-help
  41. (cat "Bitte entscheiden Sie sich, ob der Photo CD DataType auf "
  42.      "Amiga-Rechner installiert werden soll."
  43. ))
  44.  
  45. ))
  46.  
  47. ;=============================================================================
  48. ; make sure we are running under V39
  49.  
  50. (if (< (/ (getversion) 65536) 39)
  51. (
  52.     (abort #bad-kick)
  53. ))
  54.  
  55. ;=============================================================================
  56. ; set the default path, won't matter in this case
  57.  
  58. (set @default-dest "SYS:Classes/DataTypes")
  59.  
  60. (if (askbool (prompt  #askinstall)
  61.              (help    #askinstall-help)
  62.              (default 1)
  63.     )
  64. (
  65.     (copylib (source "Classes/DataTypes/photocd.datatype")
  66.              (dest   "SYS:Classes/DataTypes")
  67.     )
  68.  
  69.     (if (exists "SYS:Classes/DataTypes/picture.datatype")
  70.     (
  71.         (set version (getversion "SYS:Classes/DataTypes/picture.datatype"))
  72.         (set old_ver (/ version 65536))
  73.         (set old_rev (- version (* old_ver 65536)))
  74.  
  75.         (set version (getversion "Classes/DataTypes/picture.datatype"))
  76.         (set new_ver (/ version 65536))
  77.         (set new_rev (- version (* new_ver 65536)))
  78.  
  79.         (if (or (> new_ver old_ver) (and (= new_ver old_ver) (> new_rev old_rev)))
  80.         (
  81.             (copyfiles (source "SYS:Classes/DataTypes/picture.datatype")
  82.                        (dest   "SYS:Classes/DataTypes/picture.datatype.alt")
  83.             )
  84.         ))
  85.     ))
  86.  
  87.     (copylib (source "Classes/DataTypes/picture.datatype")
  88.              (dest   "SYS:Classes/DataTypes")
  89.     )
  90.  
  91.     (copyfiles (source "Devs/DataTypes/Photo CD")
  92.                (dest   "Devs:DataTypes")
  93.                (infos)
  94.     )
  95.  
  96.     (run "AddDataTypes Refresh Quiet")
  97. ))
  98.  
  99. ;=============================================================================
  100. ; finished
  101.  
  102. (complete 100)
  103.